﻿             viết thuật toán 1số chia  hết cho 3 hay không
      input :x
      output :x%3=0
      b1; nhập x 
      b2: kiểm tra 
      -nếu(x%3=0)=>kết luận số đó chia hết cho 3=>kết thúc
      -còn lại =>kết luận số đó không chia hết cho 3=>kết thúc
      b3; kết thúc